home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_352 / treewalk / rexx / nonrecursive.ftw < prev    next >
Text File  |  1992-05-06  |  161b  |  6 lines
  1. /*
  2.  * non-recursive: returns true if we're at the top of the tree being
  3.  * scanned, false otherwise (need a "prune" option, maybe?)
  4.  */
  5. return arg(1) = twpath()
  6.